<script>on mouseUpvisual effect wipe leftgo next cardend mouseUp</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>343</left>
<top>22</top>
<right>512</right>
<bottom>48</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>Section</name>
<script></script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>137</left>
<top>320</top>
<right>191</right>
<bottom>342</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Index</name>
<script>on mouseUpgo lastend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>332</left>
<top>320</top>
<right>386</right>
<bottom>342</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Copy</name>
<script>on mouseUpselect text of field txtdoMenu "Copy Text"select emptyend mouseUp</script>
</part>
<name>FB92bg</name>
<script>on importText-- bring in the text --- start a new card at every instance of-- "THE WORLD FACTBOOK 1992" ... crude, but it may work!-- note --- file fname not closed at end!-- ^z 1992.12.20put "RaggedyAnn:Factbook92:Factbook92txt" into fnameopen file fnamerepeatdoMenu "New Card"repeatread from file fname until returnif It is empty then exit to HyperCardif It contains "THE WORLD FACTBOOK 1992" then exit repeatput It after field "txt"set cursor to busyend repeatend repeatend importTexton extractTitles-- pull out first two lines on this card and put words into the-- Title and Section fields... start on card 2; goes to end...-- ^z 1992.12.20repeat until the number of this card is 1put line 1 of field txt into line1put line 2 of field txt into line2if (char 1 of line 1 of field txt is linefeed) and¬(char 1 of line 2 of field txt is linefeed) thendelete line 1 to 2 of field txtend ifif char 1 of line 1 of field txt is linefeed thendelete char 1 of line 1 of field txtend ifif char 1 of line1 is linefeed then delete char 1 of line1if char 1 of line2 is linefeed then delete char 1 of line2repeat while (char 1 of line1 is space)delete char 1 of line1end repeatput line1 into field "Title"repeat while (char 1 of line2 is space)delete char 1 of line2end repeatput line2 into field "Section"go nextend repeatend extractTitles</script>
